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1. ABSTRACT 



MARK12 is used to format and verify uncertified tapes for use 
on the PDP-12. The formatting is LINCtape format. The option 
of standard LINCtape format for 512 or 896 blocks (256 words) 
or special 129 word block format is given. The program formats 
the tape, writes a pattern in each block, checks the checksum on 
all blocks, checks all backward block numbers and finally checks 
a 11 data from the last data block. 

2. REQUIREMENTS 

2 . 1 Equipment 
PDP-12/20 

2.2 Storage 

The program occupies most of core between 04000g and 07000g 
and uses the area 00000 g and 02000 Q for data storage. 

3. LOADING PROCEDURE 

This program is loaded from a DIAL system tape by typing 

LO MARK12,X J. 
where X is the unit number of the system tape. 

4. STARTING PROCEDURE 

If the version of DIAL used does not automatically start ; then 
MARK12 is started by the following procedure: 

a. Be sure processor is stopped; momentarily 
press the stop switch if necessary. 

b. Press I/O Preset with the mode switch set 
to LINC. 

c. Press START 20 

5. USAGE AND OPTIONS 



When MARK12 is started, the following display will appear on the 
console scope: 

1 



MARK 12 



THIS PROGRAM WILL FORMAT AND CHECK 
LINC TAPES FOR THE PDP-12 

SELECT OPTION AND PRESS LINE FEED 
ON THE CONSOLE TELETYPE: 



SELECT 

1 STD.LINC FORMAT 

P 129 WORD FORMAT 

B 896 STD. BLKS. 



The user now presses 1 , P , or B on the console Teletype. All other 
responses are rejected and a response can be changed by typing 
RUBOUT or the new response. After the type of tape is selected 
and LINE FEED is pressed, the following display will appear: 

MOUNT TAPE TO BE 
MARKED ON THE RIGHT 
REEL OF UNIT 1 

PLACE UNIT 1 IN 

REMOTE WITH 

WRITE ENABLED , THEN 

PRESS THE MARK SWITCH 

The user does as asked above. The program will examine unit 1 
to be sure it is selected with write enabled. Then it will try 
to set the MARK flip-flop which requires the console switch to 
be depressed. When all is correct, the tape display will disap- 
pear and the tape will move. The process of checking the unit 
may cause the tape to move slightly; therefore, it is suggested 
unit 1 be placed in remote just prior to actually marking the 
tape. There are three complete passes down the tape and back. 
These are formatting, writing, and checking. When the checking 
process is complete and correct, the following display will 
appear : 

GOOD TAPE 

ALLOW MARKED TAPE TO REWIND 
THEN SELECT OPTION AND TYPE 
LINE FEED ON THE TELETYPE 

SELECT 

1 MARK ANOTHER TAPE 

2 RESTART DIAL 
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This means that the tape is good and may be used as desired. Option 
1 takes the user back to the first display. Option 2 returns to 
the DIAL system. 

If the check was not correct, the following display will ap- 
pear: 

TAPE CHECK FAILED 

SELECT 

1 MARK ANOTHER TAPE 

2 RESTART DIAL 

This means the tape is not to be used. The return options 

are the same as for a good tape (see Section 6 for a discussion 

of check failures) . 

6. MECHANICAL CONSIDERATIONS AND FAILURES 



The correct operation jas well as formatting of tape^ requires 
that the tape travel and path be smooth, clean, and steady. 
The following items are suggested for most reliable operation: 

a. Be sure heads and guides are cleaned. 

b. Mount reels squarely on hubs. 

c. Before marking a new tape, run it all the way 
onto the take-up reel and back to the supply 
reel to insure optimum alignment between guide 
and reel. 

d. Observe tape motion and be sure the tape is 
not lifting off the head. If it is, the 
transports require service. 

If there is a check failure and the above items are satisfactory, 
then the tape is most likely defective. 

6.1 Formats 

The standard LINC format (option 1) contains 512 data blocks each 
containing 256 data words. Option B generates 896 blocks each also 
containing 256 data words. The 129-word format (option P) will 
generate 1536 data blocks each containing 129 data words. Most all 
tape programming and usage is and will be with the standard LINC 
format tape. The PDP-12 Laboratory Data Processing (LDP) System 
requires 896 10 block tapes. Some special applications that 
simulate PDP-8 DECtape will have use for 129-word formats. 



Although it is not recommended that special formats be widely 
used, the MARK program is organized in such a way that by minor 
modification virtually any format can be written. The program 
listings give detailed information on how to do this. 

STANDARD LINC FORMAT 





1024 


WORDS 


r KUIN I JiND ZiLUNJi [2 56 




4095 


WORDS 


TPT?fYMT TM 7rMTT 




1 


WORD 


rnu DlAJK^r^ INUJYUDijK 


Repeated 


1 


WORD 


(jUAKJJ WUKU 


c; T o 


255 


WORDS 


IJAIA WUKU 




1 


WORD 


PTNAT. DATA WORD 


(916 times 


3 


WORDS 


CHECK WORD 


for option B) 


1 


WORD 


GUARD WORD 




1 


WORD 


BKWD BLOCK NUMBER 




5 


WORDS 


IM ZONE 




8 


WORDS 


FINAL IM ZONE 




2048 


WORDS 


FINAL END ZONE (256 




129 WORD FORMAT 






1024 


WORDS 


FRONT END ZONE 




4095 


WORDS 


FRONT IM ZONE 




1 


WORD 


FWD BLOCK NUMBER 




1 


WORD 


GUARD WORD 


Repeated 


128 


WORDS 


DATA WORDS 


1568 


1 


WORD 


FINAL DATA WORD 


times 


3 


WORDS 


CHECK WORDS 




1 


WORD 


GUARD WORD 




1 


WORD 


BKWD BLOCK NUMBER 




5 


WORDS 


IM ZONE 




1023 


WORDS 


FINAL IM ZONE 




1024 


WORDS 


FINAL EM ZONE 



Note there are eight and fifteen data blocks respectively for 
each format at the front and end of the tape. These allow smooth 
searching and turn around. They are not used for data. 
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7 . FLOWCHARTS 



^TAR^ 



DSP 1 



SET UP Q&A 



DISPLAY IT 
AND WAIT 
FOR KBD 




ONMARK 



TURN ON 
MARK FF 
WRTA P " j, 



J 



WRITE 2 56> 
WORD FOR- 
MAT LINC 
TAPE 



MARK 12 

THIS PROGRAM WILL FOR- 
MAT AND CHECK LINC 
TAPES FOR THE PDP-12 

SELECT OPTION AND PRESS 
LINE FEED ON THE CON- 
SOLE TELETYPE: 

SELECT 

1 STD. LINC FORMAT 
P 129 WORD FORMAT 
B 896 STD. BLKS . 




no 



(TURN ON \ 
MARK FF J 




ONMARK 



WRITE 129 
WORD FOR- 
MAT LINC 
.TAPE, 



/'ru 
^ma: 

TAI ~ 

Q 



TURN ON 
MARK FF 

WRTAP 



WRITE 896 
STD. BLKS 



check 
yes 



SET UP FOR DISPLAY 
GOOD TAPE 

ALLOW MARKED TAPE 
TO REWIND THEN SE- 
LECT OPTION AND 
TYPE LINE FEED ON 
THE TELETYPE 

SELECT 

1 MARK ANOTHER 

2 RESTART DIAL 




D 



SET UP FOR DISPLAY 
TAPE CHECK 
FAILED 

SELECT 

1 MARK ANOTHER 
TAPE 

2 RESTART DIAL 
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SET UP Q a A 
a DISPLAY 1st 
4 LINES OF TEXT 
(SHOWN TO RIGHT) 




f 


SELECT UNIT 1 
AND FWD MOTION 


1 





SET UP Q a A AND 
DISPLAY LAST 3 
LINES OF THE 
ABOVE DISPLAY 



DELAY LOOP TO 
EQUALIZE FWD a 
BKWD MOTION 
TIMES 



MOUNT TAPE TO BE 

MARKED ON THE RIGHT 

REEL OF UNIT 1 

PLACE UNIT 1 IN 

REMOTE WITH 

WRITE ENABLED, THEN 

PRESS THE MARK SWITCH 



TRY TO SET 
MARK FF 




SELECT BKWD 
MTN ON UNIT 1 



EXIT 

SUBROUTINE 



7 




PICK UP 

TAPE DEFINITION 
VARIABLE 



WMKWD 



(WRITE "\ 
BEGINNING EM'S J 



WMKWD 



(WRITE N 
BEGINNING IM'S J 




C WRITE FINAL *N 



JL 



SHUT OFF MARK FF 
AND BACK TAPE 
INTO SAFE MARKED 
AREA 



EXIT SUBROUTINE 



8 



WAIT 



c 




WRITE FWD B 



D 



1 




PICK UP OTHER 
VARIABLES ABOUT 
THIS BLOCK 


WAIT , 




C WRITE 
WORD 


GUARD 




r 


WRITE 1st 

12 DATA WORDS 

AND FORM BK WD 

BN 




< 


f 


WRITE 3 CHECK 
MARK WORDS 


WAIT , 





(REVERSE BLOCkN 
NUMBER J 

EXIT 

SUBROUTINE 



9 




I 

PICK UP 
VARIABLE 




CLEAR TAPE 

FLAG AND 

EXIT SUBROUTINE 



10 



3030 






♦ 20 


3001 








08 PI 2 








00 03 






/MARK PROGRAM FOR PDP-12 


^00 4 






/BY R.J.CLAYTON 


0005 






/S-30-69 


0006 






/COPYRIGHT 1969, DIGITAL EQUIPMENT CORP, 


00 07 






/MAYNARO MASS . 


00 10 








0011 






/VERSION MARK12-1,1970 


00 12 








0013 






SEGMNT 2 


0014 








0015 






LMODE 


0016 






*16 


0017 


0016 


0701 


STDIAL, 701 /READ A GROUP INST. 


0020 


0017 


7300 


7300 /THIS WILL OVERLAY DIAL 


0021 






/WHICH STARTS AT 4020 


0022 








00.23 








0024 






DT-2000 /THIS IS A CONSTANT USED 


0025 






/FOR REFERENCING CHAR TABLES 


0026 






/IN THE DATA FIELD 


00.27 








3030 






/THIS IS THE STARTING POINT OF 


0031 






/THE MARK PROGRAM, DSPi IS THE 


0032 






/FIRST DISPLAY WHERE THE USER 


0033 






/PICKS THE TYPE OF TAPE TO 


0034 






/FORMAT 


0035 








0036 


0020 


0643 


OSP1, LDF 3 /JUST IN CASE 


0037 


0021 


7000 


JMP QAINIT /GO TO Q AND A SUBROUT. 


0040 


0022 


2001 


DT DS1 /FIRST FRAME 


0041 


0023 


0762 


ANS /LOCATION FOR ANS. 


0042 


0024 


7053 


JMP REFRESH /COME HERE TO REFRESH 


0043 








0044 


0025 


1000 


LDA /HERE AFTER LINE FEED 


0045 


0026 


0762 


ANS 


0046 


0027 


1420 


SHD I 


0047 


0030 


6100 


6100 


0053 


0031 


6041 


JMP LTAPE /GOOD SELECTION 


0051 


0032 


1420 


SHD I 


0052 


0033 


2000 


2000 


0053 


0034 


6061 


JMP PTAPE/ /ALSO GOOD SELECTION 


0054 


0035 


1420 


SHD I 


0055 


0036 


0200 


0200 


0056 


0037 


6514 


JMP BIGTAP /ALSO GOOD SELECTION 


0057 


0040 


6020 


JMP OSPl /GO BACK FOR A GOOD 


0060 






/SELECTION 


0061 








0062 






/BEEN GIVEN 


0063 








0064 








0065 








0066 








0067 






/PROGRAM TO WRITE A 


0070 






/STANDARD LINC FORMAT TAPE 


0071 








0072 


0041 


0002 


LTAPE, POP 


0073 






PMODE 


0074 


4042 


4302 


JMS ONMARK /SET MARK TURNED ON 


0075 


4043 


4701 


JMS I KWRTAP /GO WRITE THE TAPE 



0076 
0077 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0110 
0111 

0112 
0113 
0114 
0115 
0116 
0117 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 
0141 
0142 
0143 
0144 
0145 
01 46 
0147 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0170 
0171 
0172 
0173 
0174 



4044 
4045 
4046 
4047 
4050 
4051 



4052 
4053 
4054 



0056 
0057 
0060 



4062 
4063 
4064 
4065 
4066 
4067 
4070 

4071 
4<*72 
4073 
4074 



0076 
0P177 

0100 



2000 
7777 
0400 
7770 
7770 
1024 



0005 
0010 
4000 



4055 6141 



1020 
1000 
6635 



0061 0002 



4302 
4701 
2000 
7777 
0201 
7760 
7763 

3040 
0005 
1777 

2000 



4P75 6141 



1020 
3000 
6635 



LMODE 



2000 

7777 

0400 

-10 

-10 

1024 



0005 
0010 
4000 

LINC 



/BEGINING EM 
/BEGINING JM 
/256 WORDS PER BLOCK 
/FIRST FWD BLK NUMB 
/FIRST BKWD BLK NUMB 
/TOTAL NUMBER OF BLOCKS 
/INCLUDES A FEW AT FRONT 
/AND BACK FOR TURN AROUND 
/NO OF IM BETWEEN BLOCKS 
/NUMBER OF FINAL IM CODES 
/NUMBER OF FINAL EM COOES 



LDA I 
1000 

JMP CHECK 



/TO LINC MODE 



/NO OF BLOCKS TO CHECK 
/CHECK WILL FINISH 
/THE JOB 



/PROGRAM TO WRITE 129 WORD 
/LINC FORMAT TAPE FOR TCOt 
/SIMULATION 



PTAPE, 
PMODE 



LMODE 



POP 

JMS ONMARK 

JMS I KWRTAP 

2000 

7777 

0201 

-20 

-15 

3040 
005 

1777 
2000 

LINC 

LDA I 
3000 

JMP CHECK 



/THE OFFSET HELPS SEARCH 
/ON TAPE WITH SHORT BLOCKS 



/NUMBER OF DATA BLOCKS 



/PROGRAM TO WRITE 1600 STD BLKS 

/IS LOCATED AT BIGTAP 

/ 



0101 4231 KWRTAP, WRTAP /CROSS PAGE REF „ 



/SUBROUTINE TO TEST TAPE TRANSPORTS 
/AND MARK SWITCH TO DETERMINE THAT 



PM 7 "i 






/ T T T Q 
/II 19 


flit' Tfl MADk TADF 


PI 1 7 R 






/ Ml 1 (T 


nAVt UNIT 1 otLtCTCD 


Si 77 






/ Ml I C T 


HAVE UNIT 1 WRITE ENABLED 


r/j n fn in 






/MUST 


THEN PRESS MARK 


SWITCH 


0 <: ^ j 






/SUBROUTINE WIUL PREVENT BASHING 


020Z 






/TAPE 


Ail i |i| • f *m 

ON UNIT 0 




(3 O O! 1 

0200 












PI 9 |7| 4 












W O 01 S 






Qunne 
r MQUt 






none 
H f If D 


a \ no 
4 1 02 


n n e% r% 
0000 


ONMARK 


, 0000 




CI 9 01 7 

If « W / 


yl 1 01 

4 1 10 0 


0 14 1 




LINC 




0210 






LMOOE 






Well 












PI 9 1 9 












51 9 1 t 


tA i n a 


7 n n n 

/ 000 


0SP2, 


JMP QAINIT 


/USE Q AND A ROUTINE 


PI 9 1 4 


01 1 PI'S 


9 17 9 


DT DS2A /AS A 


m ■ ft Hi a a. a n * i i* • iii* 

DISPLAY ROUTINE 


019 1 ^ 










/THIS WILL BE THE FIRST 


01 9 1 fi 










/HALF OF THE DISPLAY # IT 


PI9 1 7 










/IS DONE WITH THE TAPE 


noon 

V 2 2 0 










/GOING BACKWARD. 


01 9 9 1 

0^2 1 


PI 1 0 0 


0/02 




ANS 




PI 9 9 9 

<J e£ < 


(71 1 01 7 


171 171 1 15 

0010 




NOP 




W c c 0 


(71 1 1 (51 
0 110 


4 01 9 rtl 

1020 




i n a t 




0)994 
<y c c h 


01 1 1 i 
Will 


01 1 A A 




0144 


i e c T i id k» ri o ii.t « v « Akin 

/SET UP FOR UNIT 1 AND 


pi 9 9=; 










/FORWARD MOTION 




n 1 1 o 
0 1 1 2 


Ol •% 01 rtl 

0000 




IOB 




5t 9 9 7 

<0 C C. f 


Wl 10 


0102 




6152 




01 9 01 

o c 0 i> 












01 9 1 
W c 0 1 


0 1 1 *» 


7 01 01 ra 

/ 000 




JMP QAINIT 


/DO SECOND HALF OF THIS 


01 9 1<5 


PI 1 1 0 


n n il 1 

Z243 




DT DS2B 


/DISPLAY 


pi 9 n 

0 2OO 


0116 


0762 




ANS 




01 9 1 A 
020 4 


P) 1 1 7 


0016 




NOP 




01 9 1 *\ 

W 2 0 0 












01 9 K 
10 <i 0 0 












PI 9 ~\ 7 
v CO f 


(71 1 9 01 

11 let! 


01 01 K A 




SET I 4 


/THIS LOOP EQUALIZES 


PI 9 4 01 

!£/ ■* IfJ 


01 1 9 1 

0 1 <£ 1 


/ O / / 




• 100 




PI 9 4 1 


n 1 9 9 

If) 1 <s d 


01 9 9 >t 

0 C d. *♦ 




XSK I 4 


/THE FWD AND BKWD 


Oi 9 » O 


w 1 <c*5 


A 4 in 

0 122 




JMP ,-1 


/MOTION TIMES 


XI C *4 O 












01 9 4 A 
<o «S »» *♦ 


V.7 1 C fl 


1 nnn 
1020 




IDA I 




01 9 il R 
l/J C ** 0 




C nt n f% 

0000 




5000 /SELECT MAINT REG TO 


PI94fi 


01 1 9R 


(71 *? 01 01 
0000 




IOB /LOOK 


AT UNITS AND MTN 


P19 47 


n 1 97 

Hie/ 


0 10 1 




6151 




PI 9 S 01 

W <: □ V) 


(7i 1 ^ n 

^ 1 00 


01 01 1 4 
0011 




CLR 






W101 


oi s oi oi 

0 000 




IOB 




PI 9 R 9 
v C D C 


3 1 0 2 


0 104 




6154 /SHOULD HAVE UNIT 1, 


PI 9 

y) c. Zj O 


0 100 


l Jen 

1 *»O0 




SAE I /WRITE ENABLED, AND 


PI9'S4 
W c 3 *» 


M 1 Ofl 


R777 

J / / / 




5777 /FWD 


MOTION 


0! 9 *i «\ 

VI 2 0 O 


ill IE 

0 10 0 


Cl IV 

0 1.3 7 




JMP ,*2 /NOT 


YET 


v) 2 0 0 


0100 


JC 4 it A 

0 144 




JMP MARKSW 




PI 9 R 7 

10 it D / 












PI9<?P| 

W c Q So 


01 1 7 

WiO/ 


1 01 9 01 

1020 


OMKST, 


LDA I 




PI 9 fi 1 
« t o 1 


01 1 4 !7I 
0 1 *t 0 


(7) n O A 

0024 




0024 


/START BACKWARD MOTION 


PI9A9 
c O <£, 


0 1 1 


oi k a n 

0 000 




IOB 






01 1 4 9 


C< En 

0 102 




6152 






0140 


c 4 n a 

6104 




JMP DSP2 


/GO BACK AND TRY AGAIN 


pi 9 *; *s 












(A 9 ft" R 
*> t P O 


n i A A 
0 1 *• *l 


4 01 9 rtl 

10 20 


MARKSW 


, LOA I 




PI9R7 
rJ e O / 


01 1 ^ R 

0 1 *» 0 


01 9 01 01 

0 2 0 0 




0200 




PI97PI 


r« 4 A c 

VJ 1 1 O 


01 01 01 1 
H 00 1 




AXO 


/TRY TO SET MARK FLOP 


PI97 1 


<X 1 A7 
V) 1 *• f 


01 01 1 4 

0011 




CLR 




0272 


pi 1 *5pi 


PI PI 9 1 

r" 10 <C l 




MSC I 1 


/READ IT BACK 


0273 


0151 


0265 




ROL I 5 





0274 


0152 


0472 


LZE I 




!*H rs "7 t£ 

0275 


0153 


6137 


JMP OMKST 


/NOT YET PRESSED 


01 O T £ 








f31 r> *» 

W277 


0154 


0002 


RET2» POP 


/TO PDP8 MODE 


0300 








/MARK FLIP FLOP IS ON 


03 C5 1 








/AND TAPE IS FWD MTN, 


01 1 01 o 






PMQDE 




01 "X 01 

WO WO 


4 1 55 


7200 


CLA 




0304 


4156 


6151 


6151 


/SET TAPE MAINT REG, 


0305 








/SO IOT 6154 WILL 


0306 








/TRANSFER AC TO TB 


0307 


4157 


5702 


JMP I ONMARK. 


3310 








0311 










0312 










0313 






*4200 




0314 










0315 






/DSP3 




0316 






/THIS ROUTINE IS USED AFTER CHECKING 


0317 






/A TAPE THAT THIS PROGRAM MARKED 


0320 






/FROM HERE THE USER 


CALLS DIAL OR 


3321 






/MARKS ANOTHER TAPE 




0322 










^ Tl ^ ^ 

a 323 






LMODE 




wo»j4 


9200 


7000 


DSP3, JMP QAINIT 


/TO DISPLAY ROUTINE 


0325 


0201 


231 1 


OT 0S3 /CHECKING ROUTINE SETS 


0326 








/THIS LOCATION FOR FRAME 


0327 








/3 OR FRAME 4 


0330 


0202 


0762 


ANS 




0331 


0203 


6215 


JMP 0SP3R 


/REFRESH RETURN 


0332 


0204 


1000 


IDA 


/RETURN FROM LINE FEED 


0333 


0205 


0762 


ANS 


A334 


0206 


1420 


SHD I 


/NOW TEST THE ANSWER 


0335 


0207 


6100 


6100 




0336 


0210 


6020 


JMP DSPl 




0337 


0211 


1420 


SHD I 




0340 


0212 


6200 


6200 




0341 


0213 


6016 


JMP STDIAL 




0 342 


i>l214 


6200 


JMP DSP3 




0343 










0 344 . 


0215 


1000 


0SP3R, IDA 


/REJECT WRONG ANSWERS 


0345 


0216 


13762 


ANS 




0346 


0217 


1420 


SHD I 




0347 


0220 


6100 


6100 




0350 


A221 


7053 


JMP REFRESH 




0351 


0222 


1420 


SHD I 




0352 


0223 


6200 


6200 




0353 


0224 


7053 


JMP REFRESH 




0354 


0225 


1420 


SHD I 




0355 


0226 


0000 


0000 




0356 


0227 


7053 


JMP REFRESH 




0357 
0360 


0230 


6200 


JMP DSP3 


/A BAD ANSWER WAS GIVEN 


0361 










3362 










0363 










0 364 






PMODE 




0355 










0366 






/SUBROUTINE TO WRITE 


TAPE 


0367 






/CALLING SEQUENCE: 




0370 






/JMS WRTAP 




0371 






/NO OF BEGINING END 


MARKS 


0372 






/NO OF BEGINING IM 





0373 






/NUMBER 


OF WORDS OF DATA 


3374 






/FIRST 


FWD BLOCK NUMBER 




3375 






/FIRST 


BKWD 


BLOCK NUMBER 


0376 






/NUMBER 


OF BLOCKS 




0377 






/NO OF 


IM BETWEEN BLOCKS 


0430 






/NO OF 


FINAL 


IM 




0401 






/NO OF 


FINAL 


EM 




04 02 






/RETURN 


10TH 


i WORD AFTER 


JMS 


0403 














0404 


4231 


0000 


WRTAP, 


0000 






0405 


4232 


7200 




CLA 






0406 


4233 


1631 




TAD 


I WRTAP 




0407 


4234 


2231 




ISZ 


WRTAP 




0410 


4235 


3345 




OCA 


KIEM 


/SAVE NO OF END MARKS 


041 1 


4236 


1631 




TAD 


I WRTAP 




0412 


4237 


2231 




ISZ 


WRTAP 




0413 


4240 


3346 




OCA 


K I IM 




0414 


4241 


1631 




TAD 


I WRTAP 




0415 


4242 


2231 




ISZ 


WRTAP 




0416 


4243 


3274 




OCA 


WRL00P+2 


/SET UP NO OF WRDS. 


0417 


4244 


1*531 




TAD 


I WRTAP 




0420 


4245 


2231 




ISZ 


WRTAP 




0421- 


4246 


3343 




OCA 


FBLK 


/SET FWD BLOCK NO. 


0422 


4247 


1631 




TAD 


I WRTAP 




0423 


4250 


2231 




ISZ 


WRTAP 




0424 


4251 


3275 




OCA 


WRLOOP+3 


/SET BKWD BLOCK NO. 


0425 


4252 


1631 




TAD 


I WRTAP 




0426 


4253 


2231 




ISZ 


WRTAP 




0427 


4254 


7040 




CM A 






0430 


4255 


3344 




OCA 


BLKCNT 




0431 














0432 


4256 


1350 




TAD 


KHERE 


/GO SYNC WITH TAPE WORD 


0433 


4257 


3747 




OCA 


I KWAIT1 




0434 


4260 


1351 




TAD 


K0200 


/CLEAR TAPE WORD FLAG 


0435 


4261 


6152 




6152 




/I0T TO CLEAR 


0436 


4262 


6141 




LINC 






0437 


4263 


6607 




6000 


FRSTGO 


/THIS IS LINC JMP INST, 


0440 












/RETURN WILL RE IN 8 MOOF 


0441 














044g 


4264 


134 5 


HERE, 


TAD 


KIEM 


/NOW WRITE FIRST END MKS. 


0443 


4265 


4753 




JMS 


I KWMKD 


/ACTUALLY GO WRITE IT 


0444 


4256 


0000 




0000 




/CODE FOR EM 


0445 


4267 


1346 




TAD 


KIIM 


/NOW WRITE THE BEGINlNG 


0446 


427P 


4753 




JMS 


I KWMKD 


/IM MARKS 


0447 


4271 


0017 




3017 




/CODE FOR IM 


0450 














0451 


4272 


1343 


WRLOQP, 


TAD 


FBLK 




0452 


4273 


4752 




JMS 


I KBLOCK 


/GO WRITE IT 


0453 


4274 


0000 




3000 




/NUMBER OF WORDS 


0454 


42 7 5 


0000 




0000 




/BKWD BLOCK NUMBER 


0455 


4276 


1631 




TAD 


I WRTAP 


0456 


4277 


4753 




JMS 


I KWMKD 




0457 


4300 


0017 




3017 




/WRITE IM BETWEEN BLOCKS 


0460 


4301 


2343 




ISZ 


FBLK 


/INCREMENT BLOCK NUMB- 


0461 


4302 


7300 




HOP 




0462 


4303 


2275 




ISZ 


WRLOOP+3 




3453 


4304 


7000 




NOP 






0464 


4305 


2344 




ISZ 


BLKCNT 


/DONE ALL BLOCKS YET? 


0465 


4306 


5272 




JMP 


WRLOOP 


/NO 


0466 


4307 


2231 




ISZ 


WRTAP 




0467 














0470 


4310 


4747 




JMS 


I KWAIT1 


/WRITE FIRST OF THE 


0471 


4311 


0017 




0017 




/THE FINAL IM, CALLED THIS 



0472 








/WAY TO CUT DOWN ON TIME , 


0473 








/THINGS ARE A BIT PRESSED 


0 474 








/AT THIS POINT 


0475 








0 476 


4312 


7240 


Ct A CMA 




0477 


4313 


1631 


TAD I WRTAP 






4514 


2231 


192 WRTAP 






4315 


4733 


JMS t K WliKO 






4316 


0017 




/WRITE rtNAL 1M MAHtKfi 


0 5 'A 3 


4317 


1631 


TAD I WRTAP 


H.5.ri4 


4320 


2231 


ISZ WRTAP 




0505 


4321 


4753 


JMS I KWMKD 




0506 


4322 


0000 


0000 


/WRITE FINAL END MARKS 


0507 


4323 


6141 


LINC 




0510 






LMODE 




051 1 


0324 


0011 


CLR 




3512 


0325 


0001 


AXO 


/CLEAR MARK FLOP 


0513 


0326 


0064 


SET I 4 




0514 


0327 


7727 


-50 


/DELAY A WHILE AND 


0515 


0330 


1020 


LDA I 


/BACK UP THE TAPE ON 


0516 


0331 


0024 


0024 


/UNIT 1 SO THAT CHECK 


0517 


0332 


0500 


IOB 


/PROGRAM CAN TEST THE 


0520 


0333 


6152 


6152 


/TAPE 


3521 


0334 


0225 


XSK I 3 




0522 


0335 


6330 


JMP .-5 




0523 


0336 


0224 


XSK I A 




0524 


0337 


6330 


JMP ,-7 




0525 


0340 


0002 


POP 




0526 






PMQDE 




0527 


4341 


7200 


CUA 




0530 


4342 


5631 


JMP I WRTAP 


/ALL DONE GO BACK 


0531 








0 5 3 2 










0533 


4343 


0000 


FBLK, 0000 


/VARIABLES 


0534 


4344 


0000 


3LKCNT, 0000 




0535 


4345 


0000 


KIEM, 0000 




0536 


4346 


0000 


KIIM, 000 




0537 


4347 


4600 


KWAIT1, WAIT 




0540 


4350 


4263 


KHERE f HERE™ 1 


/WILL BE INCREMENTED 


0541 


4351 


0200 


K0230, 0200 




0542 










0543 


4352 


4400 


K8L0CK, BLOCK 


/CROSS PAGE REF. 


05 44 


4353 


4520 


KWMKD, WMKWD 


0545 










0546 










0547 






*4400 




0550 










0551 










0552 






/SUBROUTINE TO WRITE A 


BLOCK 


0553 






/OF TAPE 




0554 






/CALLING SEQUENCES: 




0555 






/JMS BLOCK WITH FWD BLOCK NO IN 


0556 






/THE AC, 




0557 






/FIRST LOCATION AFTER 


JMS CONTAINS 


0560 






/NUMBER OF DATA WRDS IN BLOCK 


0561 






/SECOND LOCATION AFTER 


JMS CONTAINS 


0562 






/BACKWARO BLOCK NUMBER 




0563 






/ THIS ROUTINE WILL WRITE J 


0564 






/ BM (FWD) 










/ GM 




0566 






/ DM (MIN. 14, 


MAX, 4096) 


0567 






/ FM 


0 570 






/ CM (THREE WORDS) 



0 57 1 






/ 


GM 






0 572 






/ 


BN 


(BKWD) 




fi 57 3 






f 








057 4 














f 57 3 














3576 


4400 


0000 


810CK, 


0000 




0577 


4401 


7040 




CM A 




/USED IN COMP, FORM 


0600 


4402 


471 1 




JMS 


I KWAIT 


/WRITE FWD BM 


0601 


4403 


0016 




0016 


/BLOCK NO CODE WORD 


0602 


4404 


1 600 




TAD 


I BLOCK 


/GET NO OF DATA WORDS 


0603 


4405 


7140 




CM A 


CLL 




0604 


4406 


1306 




TAD 


K001 6 




0605 


4407 


7430 




SZL 




/LESS THAN 14 WORDS 


0606 


4410 


7402 




HUT 






0607 


441 1 


7450 




SNA 






0610 


4412 


7402 




HIT 




/SPECIFIED 14 WORDS 


0611 


4413 


3265 




DC A 


COUNT A 


/SAVE NUMBER OF WORDS 


0612 


4414 


2200 




XSZ 


BLOCK 


/MOVE POINTER 


0613 


4415 


1600 




TAD 


I BLOCK 


/GET BKWD BLOCK NO 


0614 


4416 


3270 




DCA 


BKBNS 


/SAVE IT 


0615 


4417 


3271 




OCA 


BKBNA 


/CLEAR BKWRD BLK 


061 6 












/ASSEMBLY REGISTER 


0617 


4420 


4711 




JMS 


I KWAIT 


/WRITE GUARD WORD 


0620 


4421 


0002 




0002 




/GUARD MARK CODE 


0621 


4422 


1307 




TAD 


K7764 




0622 


4423 


3266 




DCA 


COUNTB 


/COUNT OF 12 


0623 


4424 


1310 




TAD 


KB 1 TAB 


/SET UP BIT TABLE POINTER 


0624 


4425 


3267 




OCA 


TEMP A 




0625 


4426 


1313 


BlKLPl f 


TAD 


K5252 


/WRITE 1ST 12 


0626 


4427 


4711 




JMS 


I KWAIT 


/WORDS AND FORM 


0627 


4430 


001 1 




001 1 




/BKWRD BLK NO FOR 


0630 


4431 


1270 




TAD 


BKBNS 


/WRITING ON TAPE 


0631 


4 4 32 


7004 




RAL 






0632 


4433 


3270 




DCA 


BKBNS 




0633 


4434 


7430 




szl 






0634 


4435 


1667 




TAD 


I TEMPA 


/GET A BIT 


0635 


4436 


1271 




TAD 


BKBNA 


/COMBINE WITH OTHER 


0636 


4437 


3271 




DCA 


BKBNA 


/BITS AND SAVE THEM 


0637 


4440 


2267 




isz 


TEMPA 


/MOVE POINTER 


0640 


4441 


2266 




ISZ 


COUNTB 


/DONE 12 YET 


0641 


4442 


5226 




JMP 


BLKLPl 


/NO 


0642 


4443 


1313 


BIKLP2, 


TAD 


K5252 


/WRITE REST OF DATA WORDS 


0643 


4444 


471 1 




JMS 


I KWAIT 


/WRITE DATA WORD 


0644 


4445 


0011 




0011 




/DATA MARK CODE 


0545 


4446 


2265 




isz 


COUNTA 


/DONE YET 


0646 


4447 


5243 




JMP 


BLKL.P2 


/NO 


0647 


4450 


1313 




TAD 


'» J £, J C 




0650 


4451 


4711 




JMS 


I KWAIT 


/WRITE FINAL MARK 


0651 


4452 


0013 




0013 




/FINAL MARK CODE 


0652 


4453 


7325 




CL A 


XAC STL RAL 


/WRITE 3 CHECK WORDS 


0653 


4454 


4712 




JMS 


I KWMKWD 




0654 


4455 


0001 




0001 




/CHECKMARK CODE 


0655 


4456 


471 1 




JMS 


I KWAIT 


/WRITE GUARD MARK 


0656 


4457 


0002 




0002 




/GUARD MARK CODE 


0657 


4460 


1271 




TAD 


BKBNA 




0663 


4461 


4711 




JMS 


I KWAIT 


/WRITE BKWD BLOCK NO, 


0661 


4462 


0007 




0007 




/BACKWARD BLK NO CODE 


0662 


4463 


2200 




ISZ 


BLOCK 


/INCREMENT RETURN 


0663 


4464 


5600 




JMP 


I BLOCK 


/OR BACK 


0664 


4465 


0000 


COUNTA, 


0 




/COUNTER NO OF DATA WRDS 


0665 


4466 


0000 


COUNTS, 


0 




/COUNTER 1ST 12 WORDS 


0666 


4467 


0000 


TEMPA, 


0 




/RANDOM USAGE 


0667 


4470 


0000 


BKBNS, 


0000 




/SAVE BKWD BN AS CALLED 



0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
?57 00 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0710 
071 1 
0712 
0713 
0714 
0715 
0716 
0717 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
3730 
0731 
0732 
0733 
0734 
0735 
0736 
"737 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
07 47 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0760 
07fil 
0762 
07 63 
3764 
0765 
0766 



4471 0000 BKBNA, 0000 



4472 
4473 
4474 
4475 
4476 
4477 
4500 
4501 
4502 
4503 
4504 
4505 



4506 
4507 
4510 
4511 
4512 
4513 



0400 
1000 
2000 
4000 
0020 
0040 
0100 

0200 
0001 
0002 
0004 
0010 



BITAB, 0400 
1000 
2000 
4000 
0020 
0040 
0100 
0200 
0001 
0002 
0004 
0010 



/FORM BKBWD BN THAT 
/WILL BE WRITTEN ON TAPE 
/TABLE USED TO FORM 
/BACKWARD BLOCK NO, 



0016 
7764 
4472 
4600 
4620 
5252 



/CONSTANTS 



K0016, 0016 
K7764, 7764 
KB1TAB, BITAB 
KWAIT, WAIT 
KWMKWD, WMKWD 
K5252, 5252 
/ 

/WRITES 1600 STD BLKS 
/SEE LTAPE FOR COMMENTS 
/ 

LMODE 

0514 0002 BIGTAP, POP 

PMODE 

4515 4734 JMS I PONMARK 

4516 4735 JMS I PWRTAP 

4517 1000 1000 

4520 7777 7777 

4521 0400 0400 

4522 7770 -10 

4523 7770 -J0 

4524 1624 |624 

4525 0005 5 

4526 0010 10 

4527 0400 0400 
4530 6141 LINC 

LMODE 

0531 1020 LDA I 

0532 1600 1600 

0533 6635 JMP CHECK 

0534 4102 PONMARK, ONM ARK 

0535 4231 PWRTAP, WRTAP 



*4600 

/SUBROUTINE TO WAIT FOR COMPLETION 

/OF CURRENT TAPE WORD 

/AND THEN TRANSFER DATA TO TAPE 

/CONTROL FOR THE NEXT WORD 

/C4 LINES) 

/CALLING SEQUENCE: 

/JMS WAIT FOLLOWED BY MARK CODE 

/TO BE GENERATED, THE AC 

/CONTAINS THE DATA WORD TO 



07 67 






/BF WRITTEN WITH THE AROVF 


0 7 7 0 






/MARK CODE 


ft 7 7 I 








• " 7 7 2 






/PROGRAM MUST RFTlIRN WITH THF 


<*7 7 3 






/NFXT WORD TO RF WRITTFN WTTHTN 


n 7 7 ^ 






/4? MICROSECONDS 


?I775 






/THIS SURROUTTNF TAKFS UP TO 


0 7 7 N 






/ «i 0 MICROSECONDS TP SYSTEM CVPLF 


P7 7 7 






/TIME WERE TO GET AS SLOW AS 

f 1 A> ' ' U- Hunt 1 W 1 WW M|»Un p* 


1 P*HC1 






/l Q MTCROSFC 


1 00 1 








1002 








1 003 








1004 






PMODE 


1005 


4600 


0000 


WAIT, 0000 


1006 


4601 


6 154 


6154 


1007 






/PUT DATA WORD IN TB THE ACTUAL WORD 


1010 






/WRITTEN ON THE TAPE WILL BE THE COMP OF THE NO JUST 


1011 






/PLACED IN THE TR REG 


1012 


4602 


7300 


n a n 1 

U L * I'LL 


1013 


4603 


1600 


TAO T WATT /RFT MARK mnF 


1014 


4604 


6141 


LINC /GO TO LINC MODE 


1015 






LMODE 


1016 


0605 


0437 


SXL I 17 /TEST TO SEE IF TAPE 


1017 


0606 


0000 


HLT /WORD FF IS UP. IF SO 


1020 






/THEN WF HAVE DEI AYFD 


1021 






/AND ALL IS LOST 


1022 


0607 


0417 


FRSTGO. SXL 17 /NOW WAIT FOR TAPE WORD 


1023 


0610 


6607 


JMP .-1 /FLIP FLOP 


1024 


06 1 1 


1020 


LDA I 


1025 


0612 


0200 


10 C KJ x) 


1 026 


0613 


0002 


POP /TO PDP 8 MODE 


1027 






PMODE 


1030 


4614 


615? 


6159 /CI EAR TAPF Fl AG 


1031 


4615 


2200 


IS2 WAIT /INCREMENT RETURN 


1032 


4616 


7901 01 

/ C KJ t) 


n a 


1033 


4617 


5600 


IMP T WATT /fin RACK 


1034 








1035 








1036 








1037 








1 040 








1041 






/SUBROUTINE TO WRITE A NUMBER 


1042 






/WORDS OF A GIVEN MARK CODE 


1043 






/CALLING SEQUENCE! 


1044 






/ IS JMS MKWRD FOLLOWED BY CODE WORD 


1045 






/ AC CONTAINS NO OP WORDS TO BE WRITTEN 


1046 






/THIS SUBROUTINE ADDS 17 CYCLES TO THE 


1047 






/WAIT ROUTINE AND MUST RE P Al 1 ED WTTHTN 


1050 






/90I MTPROSFr OF T WF 1 AST WATT FY TT 


1051 






/Tuts Anrv* « a mtpdacpp tn tut uatt 
/ 1 nio AUUo 1 V3 niUKUatt, TO THE WAIT 


1052 






/FYTT TTMF 
r t*l i line 


1053 








1054 








1055 








1056 


4620 


00 00 


WMKWD, 0000 


1057 


4621 


7041 


CMA IAC 


10*0 


4622 


3234 


DCA WMCNT /SET UP NO OF WRDS 


1061 


4623 


1620 


TAD I WMKWD /PICK UP MARK CODE 


1062 


4624 


3226 


DCA WMCODE 


1063 


4625 


4200 


JMS WAIT /GO WRITE A WORD 


1064 


4626 


0000 


WMCODE, 0000 /HOLDS MARK CODE 


1065 


4627 


2234 


ISZ WMCNT /DONE ALL WORDS YET 



1(366 


4630 


5225 


15167 


4631 


7200 


1070 


4632 


2220 


1071 


4633 


5620 


1072 






1073 






1074 


4634 


0000 


1075 






1076 






1077 






1 103 






1101 






1 102 






1 103 






1104 






1 105 






1 106 






1107 






1110 






1111 






1 112 






1113 






1114 






1115 






1116 






1117 






1 120 






1121 






1122 






1 123 


0635 


4666 


1124 


0636 


0640 


1125 


0637 


0061 


1126 


0640 


3777 


1127 


0641 


1020 


1130 


0642 


001 1 


1131 


0643 


1061 


1132 


0644 


2642 


1 133 


0645 


0201 


1134 


0646 


6643 


1 1 35 






1 136 






1137 


0647 


0011 


1140 


0650 


4660 


1141 


0651 


1020 


1142 


0652 


0020 


1 143 


0653 


0001 


1 1^4 


0654 


1020 


1145 


0655 


0000 


1 146 


0656 


0023 


1 1 47 


0657 


<*736 


1150 


0660 


0000 


11*1 


0661 


1020 


1 lo2 


0*62 


0001 


3153 


^63 


i 140 


1 1 54 


''"$64 




1 155 


0665 


1460 


1 156 


0666 


0000 


11 57 


0667 


6654 


1 160 






1161 






1162 


0670 


0733 


1163 


0671 


0000 


1164 


0672 


0733 



JMP ,-3 
CIA 

ISZ WMKWD 

JMP I WMKWD 



/NO 

/YES GO BACK 
/INCREMENT RETURN 



/SUBROUTINE TO CHECK THE TAPE THAT HAS 
/JUST BEEN WRITTEN, ENTER CHECK WITH THE 
/TOTAL NUMBER OF POSITIVE DATA BLOCKS 
/IN THE AC. THE SUBROUTINE WILL WRITE 
/A PATTERN OF 11+11+U ETC. IN EACH BLOCK 
/THEN BACKWARD BLOCK NUMBERS ARE CHECKED 
/THEN ALL BLOCKS ARE READ INTO CORE AND 
/THEIR CHECKSUMS VERIFIED. THEN THE LAST 
/DATA BLOCK IS CHECKED TO BE SURE ALL 
/DATA IS CORRECT, 

/EXIT IS TO 0SP3 ROUTINE WHICH TELLS 
/THE USER IF THE TAPE IS GOOD OR BAD 
/AND ALLOWS MORE MARKING OR RETURN TO 
/DIAL 



LMODE 
CHECK f 



WLOOP, 



WBLKNO, 



CFBLK, 



STC CFBLK 
LDF 0 
SET I i 
3777 
LDA I 
11 

STA I 1 

ADD ,-2 
XSK 1 
JMP ,«3 



STC WBLKNO 

LDA I 

0020 

AXO 

LDA I 

0000 

TMA 

WRI I U 
0000 
LDA I 
1 

ADM 

WBLKNO 
SAE I 
0000 

JMP WLOOP 



MTB I U 
0000 
MTB I U 



/SAVE NUMBER OF BLOCKS 
/GENERATE TEST PATTERN 



/NOT DONE YET 



/SET UP EXTENDED ADDRESS 
/FORMAT FOR TAPE 



/LOAD TMA SETUP REG. 
/WRITE ON TAPE 



/WRITTEN LAST BLK YET 
/HOLDS FINAL BLOCK NO 



/NOW TEST BKWD BLK NO, 



II fS5 


0673 


0000 


0000 




1166 


0674 


1 120 


ADA I 




I I 6 7 


0675 


0001 


0001 

WWW i 




1 I 7 ft 


0676 


1060 


STA X 




117 1 


0677 


0000 


BTFST, 0000 




1 172 


0700 


0733 


MTB I U 




1173 


0701 


00 00 


0000 




1174 


0702 


1440 


SAE 




1175 


0703 


0677 


BTEST 




1 176 


0704 


6747 


JMP RERROR 


/BKWN BN WRONG 


1177 


0705 


0450 


A2E 




1200 


0706 


6674 


JMP BTEST-3 


/NOT DONE YET 


1201 










1202 










1203 


0707 


1020 


LDA I 


/NOW CHECK WRTTTFN TAPE 


1204 


0710 


0020 


0020 




1205 


071 1 


0001 


AXO 


/EX ADD FORMAT 


1206 


0712 


001 1 


ClR 




1207 


0713 


4720 


STC RBLKNO 




1210 


0714 


1020 


RLOQP . 1 D A I 

' > WWW' | l^W* A 




1211 


0715 


0000 


ft ft ffl ft 




1212 


0716 


0023 


TMA 




1213 


0717 


0732 


RDE I U 




1214 


0720 


0000 


RBLKNO, 0000 




1215 


0721 


1460 


SAE I 




1216 


0722 


7777 


7777 


/CHECKSUM OK 


12.17 


0723 


6747 


JMP RERROR 


/NO 


1220 


0724 


1020 


LDA I 


/YES 


1221 


0725 


0001 


000 1 




1 222 


3726 


1 140 


ADM 




1223 


0727 


0720 


RBLKNO 




1224 


0730 


1440 






1225 


3731 


0666 


CFBLK 




1226 


0732 


67 1 4 


JMP RLQQP 




1227 










1230 


0733 


0061 


SET I 1 


/DONE NOW CHECK LAST 


12 31 


0734 


3777 


3777 


/BLOCK 

r Win wy n 


1232 


0735 


1320 


LDA I 


/THIS IS DATA TEST 


1233 


0736 


0011 


0011 




1234 


0737 


1461 


DLOOP, SAE I 1 




1235 


0740 


6747 


JMP RERROR 




1236 


0741 


2736 


ADD # «3 




1237 


0742 


0201 


XSK 1 




1240 


0743 


6737 


JMP DLQOP 

Win w k« u u i 




1241 










1242 


0744 


1020 


LDA I 




1243 


0745 


231 1 


DT DS3 


/sft uP for Gnnn tape 


1244 








/D T SPI A V PR AMP 


1245 


0746 


6751 


JMP ,*3 




1246 










1247 


0747 


1020 


RERROR, LDA I 


/COME HERE ON CHECKING 


12 50 


0750 


2436 


DT DS4 


/ERROR. SET UP FOR ERROR 


1251 








/DISPLAY FRAMP 


1252 










1253 


0751 


4201 


STC DSP3+1 




1254 


0752 


0643 


LDF 3 




1255 


0 7 53 


0011 


CLR 




1256 


0754 


0001 


AXO 


/CLEAR EXTENDFD ADD 


1257 








/FORMAT AND HFAD THE 


1260 


0755 


0733 


MTB I U 


/TAPE FOR THE FRONT 


1261 


0756 


0000 


0000 


/END 


1262 


0757 


0733 


MTB I U 




12*3 


0760 


0000 


0000 





1264 
1265 
1266 
1267 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1300 
1301 
1302 
1303 
1304 
131*5 
1306 
1307 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 

1320 
1321 
1322 
1323 
1324 

1325 
1326 
1327 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 



0761 6200 



0762 
0763 



1000 

1031 
1002 
1003 
1004 
1005 
1006 
1007 
1010 
1011 
1012 
1013 
1014 

1015 
1016 
1017 
1020 



1021 
1022 
1023 
1024 
1025 
1026 
1027 
1030 
1031 
1032 
1033 
1034 

1035 
1036 
1037 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 

10 50 
1051 



0000 
0000 



1020 
0002 
2000 
1060 
0000 
3200 
4001 
1001 
3264 
5057 
1021 
50 52 
4006 

0043 
1052 
0044 
1057 



0041 
0004 
7270 
0016 
1324 
7231 
7035 
7050 
1460 
0043 
7026 
7021 

1343 
1324 
1 120 
7717 
0017 
4006 
1363 
0226 
7043 
1323 
7026 

1343 
0064 



ANS, 



JMP DSP3 

0000 
0000 



/LOCATION FOR ANSWERS 
/FROM Q AND A 



/QANDA SUBROUTINE FOR THE 
/PDP-12 

/REMOVE *1000 BELOW IF 
/INSERTING SOURCE DIRECTLY 
/INTO YOUR PROGRAM SOURCE 
♦1000 /REMOVE, IF DESIRED 
/ 

/TO HERE TO INITIALIZE THE ROUTINE 
/ 

QAINIT, LDA I 

2 

ADD 0 
ST A I 



/SAVE JMP RETURN 



QAB, 



0 /JMP *3 

ADD Q AL+3 
STC 1 
LDA 1 
ADD QAQ>1 
STC QAG-3 
LDA I 1 
STC QARFSH-1 
STC 6 

SWER FIELD, M777 IF YES 
QACA, SET 3 /XR3 TO PTR TO ANSWERS 
QARFSH-1 

SET 4 /XR4 TO PTR TO QUESTIONS 

QAG-3 

/TO HERE IF FIRST TIME THROUGH OR 

FOLLOWING A CR 
SET I 



/PTR TO FIRST PAR AM 
/GET FIRST PARAM 
/PTR TO HALPWORD-1 



/XR6 USED AS A SWITCH, 80 IF NO AN 



Q AD r 



JMP Q AT 
NOP 

LOW I 4 
JMP Q AO 
JMP ,+6 
JMP QAE 
SAE I 
43 
JMP 
JMP 



BUMP PTR IF H OR F 



STH 
LDH 
ADA 
-60 
COM 
STC 
STH 
XSK 
JMP 
LDH 



Q AD 

QACA+4 
3 

I 4 
I 



/F 
/H, 

/74 

/34 
/CR? 



/NO 

/EXAMINE NEXT CHAR 

/INITIALIZE ANSWER BUFR 
/74 TO ANSWERS 
/NEXT HALFWORD 



/0 IN AC 



• -2 
I 3 



JMP QAD 



QAE, 



STH 
SET 

ANSWER BUFR 



/BUMP PTR TO ANSWERS 

/ANSWER BUFR IS INITIATED 

/XR4 TO PTR TO LAST TYPED CHAR IN 



1360 


1052 


0000 




0 






1351 












/••••-RE-ENTER HERE TO REFRESH---- 


1362 


1053 


1020 


QARFSH, 


LDA 


I 


/INITIAL Y POSITION 


1363 


1054 


0377 




377 




/NOTE VERT IS SET HIGH 


13 6 4 


1055 


5113 




STC 


Q AH- 1 




1365 


1056 


0063 




SET 


I 3 


/XR3 TO PTR TO HALFWORD QUESTIONS- 


1 3 *S 6 


1057 


0000 


1 


0 






1 36 7 


1060 


0045 




SET 


5 


/XR5 TO PTR TO LAST DISPLAYED CHAR 








IN ANSWER 


WW 




1 3 7 11 


lilfi 1 


1032 




(JARrSM-i 




1371 


1062 


0041 


QAGf 


SET 


1 




137 2 


1063 


0003 




3 






1373 


1064 


7270 




JMP 


QAT 




1374 


1065 


7074 




JMP 


.♦7 


/F 


1375 


1066 


1323 




LDH 


I 3 


/H, BUMP PTR 


1376 


1067 


1020 




LDA 


I 


/NEITHER. ASSUME HALF SIZE 


1377 


1070 


1560 




BCL 


I 


1 400 


1071 


5103 


ZE 


STC 


QAM+2 


/SET INSTR TO CLEAR FF FOR HALF SI 


1401 


1072 


3512 




ADD 


QAW 


/NOP IN AC 


1402 


1073 


7101 




JMP 


QAM 




1403 


1074 


1323 




LDH 


I 3 


/BUMP PTR 


14 0 4 


1075 


1020 




LDA 


I 




1405 


1076 


1620 




BSE 


I 




1406 


1077 


5103 




STC 


QAM*2 


/SET INSTR TO SET FF FOR FULL SIZE 


1407 


1 100 


3513 




ADD 


QAW+ 1 


/ADD 9U IN AC 


1410 


1101 


5245 


QAM , 


STC 


QAP + 3 




14U 


1 102 


0024 




MSC 


I 4 


/EAD CONTROL REGISTER 


1412 


1 103 


1620 




r% c C 

BSE 


I 


/THIS INSTR CHANGES, EITHER BSE & 








OR BCL 


& 






1413 


1104 


0200 




200 






1414 


1105 


0004 




MSC 


4 


/AC TO CONTROL REGISTER 


1415 


1 106 


0061 




SET 


I 1 


/XR1 TO INITIAL X POSITION 


1416 


1107 


0100 




100 






1417 


1 1 10 


1020 




LDA 


I 


/ Y COORDINATE MULTIPLE 


1 420 


1111 


7737 




• 40 






1421 


1112 


1160 




ADM 


I 


/Y COORDINATE 


1422 


1113 


0000 




0 






1423 


1114 


1323 


QAH , 


LDH 


I 3 




1424 


1115 


7232 




JMP 


QAO+1 




1425 


1116 


7301 




JMP 


QAZ 


/74 BUMP PTR TO NEXT CHAR, PUT 40 








IN AC 








1426 


1 117 


7136 




JMP 


QAJ 


/34 


1427 


1 120 


1420 




SHD 


I 


/NEITHER 


1430 


1121 


4300 




4300 




1431 


1122 


7062 




JMP 


Q AG 


/CR. MOVE X AND Y COORDINATE 


1432 


1 123 


7242 




JMP 


GAP 


/ISPLAY CHAR 


14 33 


1. 124 


7114 




JMP 


QAH 


/PICK UP NEXT CHAR 


143 4 


1125 


7242 




JMP 


QAP 


/TO HERE IF DISPLAYING ANSWER BUFR 


1435 


1126 


1520 




SRO 


I /SWITCH 


TO DISPLAY CURSOR. EITHER 0000 OR 








17 7 7 

f f f / 








1436 


1 127 


0000 




0 




/IFXR4»XR5, THEN SWITCH*7777 


1437 


1 130 


7516 




JMP 


QAF 




1440 












/QUESTION MODE 


1441 


1131 


1325 


OAI, 


LDH 


I 5 




1 442 


1132 


7232 




JMP 


Q AO* 1 




1443 


1 133 


7114 




JMP 


QAH 


/74 


1444 


1134 


7114 




JMP 


QAH 


/34 


1445 


1 135 


7125 




JMP 


QAI-4 


/NEITHER. DISPLAY IT 


1446 


1 136 


7521 


QAJ, 


JMP 


GETKBD 


/TO HERE IF DISPLAYED BUFFER 


1 A A 7 


1 1 0/ 


04/0 




AZE 


I 


1450 


1 140 


7004 




JMP 


QAB /NOTHING 


TYPED . EXIT 



1 A K 1 

1 « 5 1 


4 4 A t 

114 1 


0362 




SET 


I 2 




1 A K r> 

1452 


1142 


1412 




QAY 






1 A «\ 7 

1 *> 5 3 


1143 


1 402 




SHD 


2 


/LF? 




i 1 A A 
114 4 


7 7 4 4 




JMP 


QAK + 4 


/YES, EXIT 


1455 


1145 


1422 




SHD 


I 2 


/CR? 


1450 


1146 


7223 




JMP 


Q AN 


1457 


1 147 


0206 




XSK 


6 


/IS THERE AN ANSWER FIELD? 


i 4d a 


1 1 50 


7053 




JMP 


QARFSH 


1 4o s. 


1151 


1422 




SHD 


I 2 


/<? 


i *» 0 2 


1102 


7 4 7c 

7 175 




JMP 


QAL 


A 1 D O 


1153 


1 «22 




SHD 


I 2 


/>? 


14 0 4 


1154 


T "1 ra iff 

7305 




JMP 


QAK 


14 0 5 


4 4 K C 

1155 


1 422 




SHD 


I 2 


/ALT? 


1 4 0 0 


4 4 R £ 

1150 


7015 




JMP 


QACA /REINITIALIZE 


1 vl 7 


1157 


1422 




SHD 


I 2 


/BACK SLASH? 


1 a 1 m 

I / V) 


4 4 (C rn 

I 1 DPI 


7 r» W ■« 

7053 




JMP 


QARFSH 


/IGNORE 


H / 1 


4* 4 A 4 

1 1 o 1 


1422 




SHD 


I 2 


/RUBOUT? 


1 / TO 

1 *> / 2 


1102 


7 4 7 «t 

7 175 




JMP 


QAL 


/IGNORE 


1 a y ~i 
14/3 


4 4 £ n 

1103 


1422 




SHD 


I 2 


/TAB? 


1 A 7 A 

14/4 


1 1 0 4 


7?53 




JMP 


QARFSH 


/ IGNORE 


1 A 7 15; 
14 7 5 


1165 


5172 




STC 


.♦5 


/ACCEPTABLE CHAR 


14/0 


1166 


7231 




JMP 


QAO 


/TEST NEXT CHAR 


147 7 


1 167 


7263 




JMP 


QAQ 


/74 BACK PTR [}P BY 1 


1500 


1170 


7263 




JMP 


QAQ 


/34 * 


1 5 -A 1 


4 4 7 4 

1171 


1 020 




LDA 


I 


/OK. STORE IT 




4 4 7 n 

1172 


0000 










1 5kl3 


4 4 7 7 

1173 


1344 




STH 


4 




1 5 0 4 


117 4 


7053 




JMP 


QARFSH 


/REDISPLAY 


1 cue 

1505 


1175 


1 304 


GAL, 


LDH 


4 


/TO HERE IF RUBBOUT OR < 


1 rue 

1 5 (a o 


1 176 


7232 




JMP 


QA0*1 


1 K(J7 

lOV? / 


4 4 7 7 

1177 


7053 




JMP 


QARFSH 


/74 IGNORE 


1510 


1200 


1775 




-605 


12 




15 11 


1201 


1 302 




LDH 


2 


/TEST THE CHAR 


1512 


1202 


1 460 




SAE 


I 


/RUBOUT? 


1513 


1203 


0037 




37 








1204 


7263 




JMP 


QAQ 


/NO. BACK PTR UP BY 1 


15 15 


1205 


0045 




SET 


5 




1516 


1206 


0004 




4 






1 fc£ 4 7 


1207 


0043 




SET 


7 

\J 






1210 


0004 




4 






1 521 


1211 


7213 




JMP 


,♦2 




4 COO 

1522 


1212 


1325 




LDH 


I 5 


/BUMP PTR 


1523 


1213 


1323 




LDH 


I 3 


/GET NEXT CHAR 


1524 


1214 


7232 




JMP 


QAO+1 




1525 


1215 


0016 




NOP 




/IF 7 4 OR 34, REPLACE CURRENT CHAR 








WITH 


0 






1 K O £ 

1520 


1216 


0011 




CLR 






1 K 1 7 

1527 


1217 


1345 




STH 


5 




1 K 7 f% 

« job 


1220 


0450 




AZE 




/WAS IT 74 OR 34? 


1 K 7 i 


1221 


7212 




JMP 


,-7 


/NO. CONTINUE 


ID o d 


4 n f°% 
1 ddc 


7263 




JMP 


QAQ 


/BACK PTR UP BY 1 


1 R 7 7 

15 33 












/TO HERE IF CR 


1534 


1223 


0206 


QAN, 


XSK 


6 




1535 




7311 




JMP 


QAK + 4 


/EXIT ROUTINE IF NO ANSWER FIELD 


< tic 
l-'OO 


4 a A r 

1225 


7231 




JMP 


QAO 


1 C 7 7 

1537 


1226 


7053 


D 


JMP 


QARFSH 


/74 MOVE PTR TO NEXT QUESTION FIEL 


1540 


1227 


7051 




JMP 


QAE+1 


/34 END OF BUFR. MOVE PTR TO FIRST 








QUESTION FIELD 


154 1 


1230 


' C C Z) 




JMP 


QAN + 2 




1542 














1543 


1231 


1324 


Q AO f 


LDH 


I 4 


/SdR 


1544 


1232 


1420 




SHD 


I 


/ M 74 BEGIN FIELD 



1^45 


1233 


7400 




7400 


/ +2 34 END BUFR 


1 546 

■j ';, 7 
!, 'A 


1234 
1235 
1236 


6000 
1460 
0034 




JMP 
SAE 
34 


0 
I 


/ *3 NEITHER 74 NOR 34 


15*51 


1237 


0220 




XSK 


I 0 




1552 


5 240 


0220 




XSK 


I 0 




1553 


1241 


6000 




JMP 


0 




1554 












/S&R TO DISP LINC CHAR IN AC 


1555 


1242 


0241 


QAP , 
TABLE 


ROL 


1 


/MULT BY 2 FOR INDEX TO ADDRESS OF 


1556 


1243 


3430 




ADD 


QAX + 4 




1557 


1244 


4002 




STC 


2 


/ADDRESS OF CHAR TO DISP IN XR2 


1563 


1245 


3506 


ADD 9U 


ADD 


QAU 


/THIS INSTR CHANGES, EITHER OP OR 


1561 


1246 


3506 




ADD 


QAU 




1562 


1247 


2001 




ADD 


1 


/ADD 4 TO XR1 TO SPACE CHAR 


1563 


1250 


4001 




STC 


1 




1564 


1251 


2005 




ADD 


5 


/GET ADDRESS OF ANSWER BUFR 


1565 


1252 


0017 




COM 






1566 


1253 


2004 




ADD 


4 




1567 


1254 


0450 




AZE 






1570 


1255 


001 1 




CLR 






15 7 1 


1256 


5127 




STC 


QAX-2 


/SWITCHiB OR 7777 


1572 


1257 


3113 




ADD 


Q AH- 1 


AY COORDINATE IN AC 


1573 


1260 


1742 




DSC 


2 




1574 


1261 


1762 




DSC 


I 2 


/DISPLAY CHAR 


1575 


1262 


6000 




JMP 


0 




1576 


1263 


1020 


QAQ, 


LDA 


I 


/BACK UP PTR BY 1 


1577 


1264 


3777 




-4000 




1600 


1265 


1140 




ADM 






1601 


1 266 


0004 




4 






1602 


1267 


7053 




JMP 


QARFSH 


/REDISPLAY 


1603 












/ 


1604 


1273 


1321 


QAT, 


LDH 


I 1 


/S0R 


1635 


1271 


1420 




SHD 


I 


/ M F 


1606 


1272 


0600 




8600 




/ +2 H 


1607 


1273 


6000 




JMP 


0 


/ *3 NEITHER 


1610 


1274 


1460 




SAE 


I 




1611 


1275 


0010 




10 






1612 


1276 


0220 




XSK 


I 0 




1613 


1277 


0220 




XSK 


I 0 




1614 


1300 


6000 




JMP 


0 




1615 












/ 


1616 


1301 


1323 


QAZ, 


LDH 


I 3 




1617 


1302 


1020 




LDA 


I 




1620 


1303 


0040 




40 






1621 


1304 


7125 




JMP 


QAI-4 




1622 












/TO HERE IF > 


1623 


1305 


1324 


OAK , 


LDH 


I 4 




1624 


1306 


0470 




AZE 


I 


/IS CURRENT CHAR BLANK? 


1625 


1307 


7263 




JMP 


QAQ 


/YES. IGNORE 


1626 


1310 


7424 




JMP 


Q AX 


/MOVE DOT FORWARD 


1627 












/TO HERE TO EXIT WITH SKIP 


1630 


1311 


1020 




LDA 


I 




1631 


1312 


0001 




1 






1632 


1313 


1 140 




ADM 






1633 


1314 


1004 




QAB 






1634 


1315 


7004 




JMP 


QAB 




1635 












/CHARACTER PATTERNS 


1635 


1316 


0101 


QAV, 


0101 




/KBD 0, ILLEGAL. USED AS MARKER 


1637 


1317 


0101 




0101 




1640 


1320 


4477 




4477 




/I X A 


1641 


1321 


7744 




7744 







1642 


1322 


5177 




5177 


/2t& 


1643 


1 323 


2651 




2651 


I 6 4 4 


1324 


4136 




4136 


/3JC 


1545 


1325 


2241 




2241 


1646 


1326 


4177 




4177 


/AID 


1647 


1327 


3641 




3641 




1650 


1330 


4577 




4577 


/5lE 


1651 


1331 


4145 




4145 


1652 


1332 


4477 




4477 


/6SF 


H £ K "2 

1653 


1333 


4044 




4044 




1654 


1334 


4136 




4136 


/7 1 G 


4 c c e: 

1655 


1335 


2645 




2645 


1656 


1336 


1077 




1077 


/10:h 


1657 


1337 


7710 




7710 


1660 


1340 


7741 




7741 


/ 1 1 s i 


1661 


1341 


0041 




0041 


1662 


1342 


4142 




4142 


/ i 2 : J 


1663 


1343 


4076 




4076 


1664 


1344 


1077 




1077 


/13:K 


1665 


1345 


4324 




4324 


1666 


1 34fi 


0177 




0177 


/14?L 


i c a i 

1 007 


1347 


0301 




0301 


1670 


1350 


3077 




3077 


/15:m 


1671 


1351 


7730 




7730 


1672 


1352 


3077 




3077 


/16SN 


1673 


1353 


7706 




7706 




1674 


1354 


4177 




4177 


/ 17 1.0 


167 5 


.1 3 5 5 


77 41 




7741 


1676 


1356 


4477 




4477 


/20IP 


1677 


1357 


3044 




3044 




1700 


1360 


4278 




4276 


m«Q 


1701 


1361 


0376 




0376 




17 02 


1362 


4477 




4477 


/22:R 


1703 


13 63 


3146 




3146 




1704 


1364 


5121 




5121 


✓ 23 8 S 




1 36 3 


4651 




4651 




1706 


1366 


4040 




4040 


/24JT 


4 *9 fa "V 

1707 


1367 


4077 




4077 




1710 


1370 


0177 




0177 


/25IU 


1711 


137 1 


7701 




7701 




1/12 


137 2 


0176 




3176 


/26SV 


1713 


1373 


7402 




7402 




1714 


1374 


0677 




0677 


/27VW 


1715 


1375 


7701 




7701 




1716 


1376 


1 463 




1463 




1717 


1 377 


6314 




6314 




1720 


1400 


0770 




0770 


/3 1 1 Y 


1721 


1401 


7007 




7007 


1722 


1402 


4543 




4543 


mn 


1 "7 rj i 


1403 


6151 




6151 




17 2 4 


1404 


4177 




4177 


/33t/ 




1405 


0000 




0000 




1726 










/34 t BACKSLASH IGNORED ON 


1727 


1406 


0000 




0 


/NOT USED 


1730 


1407 


0000 




0 


/NOT USED 


17 31 


1410 


0000 




3000 


/35I] 


1732 


1411 


7741 




7741 




17 33 






AYED 




/CODES 36:ALT, 37 t RUBOUT 




i A i O 

1 ** 1 £ 


*5 3 *l o 


y ** Y $ 


4543 


/LF, CR 


1735 


1413 


7476 




7476 


/<,> 


1736 


1414 


3634 




3634 


/ALT, BACKSLASH 


1737 


1415 


3747 




3747 


/RUBOUT, TAB 



1 7 4 3 


1416 
14 17 


0000 

0000 




0000 

V t.) VJ V) 


/40 J SPACE 


17 4 2 
1 / 4 3 


1 4 20 
1 421 


7500 
0000 




7500 
0000 


/ 4 1 I V 1 


17 44 


1422 


7000 




7000 


/42J « 


17 4 5 


1 423 


0070 




0070 




1746 






ED 




/CODES 431. 44!. 45ILF NflT 


1747 


1424 


7?32 


QAX , 


JMP QA0+1 




i 75<?) 


1425 


7263 




JMP Q AO 




1751 


1426 


7263 




JMP QAQ 




1752 


1 427 


7053 




JMP QARPSM 




1753 


1 430 


1316 




QAV 




1754 


1431 


0000 




0 


/NOT USED 


1755 


1 432 


5166 




5166 


/ 46 I & 


1756 


1433 


0526 




0526 




1 757 










yPODP 4 7 S T A R WfIT OT^Pl AVFn 


1760 


1434 


0000 




0 


/NOT USED 


1761 


1435 


0000 




0 


/NOT USED 


1762 


1436 


3600 




3600 




1763 


1437 


00 41 




01 PI 4 1 




176 4 


14 40 


4100 




4100 


/ 5 1 1 1 


17^5 


1441 


0036 




0036 




1766 


1 442 


2050 




2050 


/52s* 


1767 


1443 


0050 




0050 




177P) 


1444 


0404 




040 4 


/53S* 


177 1 


1445 


0437 




0437 




1772 


1446 


0500 




0500 


# *j *» ♦ ^ 


1773 


1447 


0006 




0006 




1774 


1450 


0404 




0404 


/55I- 


1775 


1451 


0404 




0404 




1776 


1452 


0001 




0001 


/3S 1 


1777 


1453 


0 00 0 

v v KJ K; 




V? W W Y 1 


200 0 


1454 


0601 




0601 


/57 J 0 


2001 


1455 


4030 




4030 




2032 


1 456 


4536 




4536 /fi0 S 0 




2003 


1 457 


3651 




3651 




2004 


1 460 


2101 




2101 


/SI 2 f 


2005 


1461 


0177 




0177 


2006 


1462 


4523 




4523 


/£9 I 9 


2007 


1463 


2151 








20 1 3 


1464 


4122 




4122 


/S3 I 3 


20 1 1 


1465 


2651 




2651 




20 1 2 


1466 


2414 




2 414 


/fi4 ! 4 


20 13 


1 467 


0477 




VJ H f / 




2014 


1473 


5172 






/SS ! 1 


20 1 5 


147 1 


0651 




0S5| 




2016 


1472 


1506 




1536 


/AS 1 ft 


2P 1 7 


1473 


4225 




4225 




2020 


1474 


4443 




4443 


/S7 : 7 


2021 


1475 


6050 




6050 




2022 


1 476 


5126 




5126 /70 ! 8 




2023 


1477 


2651 








2P24 


1500 


5122 




5122 


/y 1 1 o 

f f i * zf 


2025 


1501 


3651 




3651 




2026 


1502 


2200 




2200 


f r e • • 


2027 


1 503 


000 0 




0000 




2030 


1504 


4601 




4601 


/73 i » 


2031 


1505 


0000 




0000 




2032 










/CODE 74t<N0T DISPLAYED 


2033 


1506 


0002 


QAU, 


2 


/CONSTANT 


2034 


1507 


0000 




0 /NOT 


USED 


2035 


1510 


1212 




1212 


/75J ■ 



2036 


1511 


1212 




1212 










2040 


1512 


0016 


QAW, 


NOP 


2041 


1513 


3506 




ADD QAU 


2042 


1514 


4020 




4020 


2043 


1515 


2055 




2055 


2044 






/ 


2045 


1516 


1760 


QAF, 


DSC I 


2045 


1517 


6000 




6000 


2047 


1520 


7131 




JMP QAI 


2050 






/ 


2051 










2052 






/ 




2053- 






/ 




2054 






/ 




2055 






/ 




2056 






/KEYBOARD INPUT ROUT 


2057 






/ 




2060 






QAKRBa6036 /POP 


2061 






QATSFs604i /TSF 


2062 






9ATLS«6046 /TLS 


2063 






/ 




2064 


1521 


1000 


GETK8D, 


LDA 

0 


2065 


1522 


0000 




2066 


1523 


5643 




3TC QAEXIT+6 


2067 


1524 


2001 




ADD 1 


2070 


1525 


5640 




STC QAEXIT+3 


2071 


1526 


2002 




ADD 2 


2072 


1527 


5642 




STC QAEXIT+5 


2073 


1530 


5638 




STC QAEXlT+i 


2074 


1531 


0415 




KST /WAS 


2075 


1532 


6000 




JMP 0 


2076 


1533 


0500 




IOB 


2077 


1534 


6036 




QAKRB /GST 


2100 


1535 


1060 




ST A I 


2101 


1536 


0000 


QATY, 


0 


2102 


1537 


1120 




ADA I 


2103 


1540 


7540 




-237 


2104 


1541 


0451 




APO 


2106 


1542 


7604 




JMP QACNTR 


2106 






/ 




2107 


1543 


0061 




SET I % 


2110 


1544 


1654 




QACHAR« 1 


211 1 


1545 


0062 




SET I g 


2112 


1546 


7770 




*7 


2113 


1547 


1000 




IDA 


2114 


1550 


1536 




QATY 


2115 


1551 


1461 




SAE I 1 


2116 


1552 


7554 




JMP .+2 


2117 


1553 


7635 




JMP QAEXIT 


2120 


1554 


0222 




XSK I 2 /CHE 


2121 


1555 


7551 




JMP .-4 


2122 




/ 




2123 


1556 


1120 




ADA I 


2124 


1557 


7440 




-337 


2125 


1560 


0451 




APO 


2126 


1561 


7575 




JMP QALEGL 


2127 






/ 


2130 


1562 


1461 




SAE I 1 


2131 


1563 


7572 




JMP ,*7 


21 32 


1564 


1020 




LDA I 


2133 


1565 


0334 




334 


2134 


1566 


7644 




JMP QATPE 



/CODE 76?> NOT DISPLAYED 



nut 



/END Q>A 



/SAVE RETURN 
/SAVE XRS 1 AND 2 



/NOi EXIT 



/SAVE IT 



/BETWEEN 200 AND 237? 

/CONTROL CHAR. CHECK FOR CR,LF,TAB 

/NO 



/ILLEGAL CHAR, DONT ECHO 



/BETWEEN 240 AND 337? 
/YES. LEGAL CHAR 

/NO. CHECK FURTHER. 
/RUBOUT 

/ECHO BACKSLASH 



2135 


1567 


1020 




LDA I 




2136 


1570 


0037 




37 




< 1 4 3 


1571 


7637 




JMP QAEX IT+2 


/LEGAL EXIT 


2141 


• 1572 


1461 


/ 


SAE I 1 




2142 


1573 


7635 




JMP QAEXIT 


/ILLEGAL 


2143 










/ALT 


2144 


1574 


7637 




JMP QAEXIT+2 




2145 






/ 




2146 


1575 


1000 


QALEGL. 


LDA 




2147 


1576 


1536 




Q AT Y 




2153 


1577 


7644 




JMP QATPE 


/ECHO CHAR 


2151 


1600 


3535 




ADD QATY 




2152 


1601 


1560 




BCL I 


/STRIP IT TO fivBTT 


2153 


1602 


7700 




7700 




2154 


1603 


7637 




JMP QAEXIT+2 




2155 






/TO HERE 


IF CONTROL CHAR 


2156 


1604 


1460 


QACNTR, 


SAE I 




21 57 


1605 


7755 




7755 




2 1 60 


1606 


7621 




JMP QACKLF 




2161 


1607 


1020 




LDA I 


/CR 


2162 


1610 


0043 




43 




2163 


1611 


5636 




STC QAEXIT+1 




2164 


1612 


1020 




LDA I 




2165 


1613 


0215 




215 




2155 


1614 


7644 




JMP QATPE 




2157 


1615 


1020 




LDA I 




2170 


1616 


0212 




212 




2171 


1617 


7544 




JMP QATPE 




2172 


1620 


7635 




JMP QAEXIT 




2173 






/ 






2174 


1 62 1 


1460 


Q ACKLF , 


SAE I 




2175 


1622 


7752 




7752 




2176 


1623 


7627 




JMP ,+4 




2177 


1624 


1020 




LDA I 


/LF 


2200 


1625 


0045 




45 


2201 


1626 


7611 




JMP QACNTR+5 




2202 


1627 


1 460 




SAE I 




2203 


1630 


7751 




7751 




2204 


1631 


7635 




JMP QAEXIT 


/ILLEGAL 

r 4WhL w^Id 


2205 


1632 


1020 




LDA I 




2206 


1633 


0047 




47 




2207 


1634 


7637 




JMP QAEXIT+2 




2210 






/ 






221 1 


1635 


1020 


QAEXIT, 


LDA I /GET 6 


-BIT ASCII 


2212 


1636 


0000 




0 




2213 


1637 


0061 




SET I 1 


/RESTORE XRS 


2214 


1640 


0000 




0 




2215 


1641 


0062 




SET I 2 




2215 


1 642 


0000 




0 




2217 


1643 


6000 




JMP 


/EXIR SdR GETKBD 


2220 






/SOR TO 


PRINT C(AC) 




2221 


1644 


0500 


QATPE, 


IOB 




2222 


1645 


6046 




QATLS /PDP-8 


IOT TLS 


2223 


1646 


1000 




LDA 




2224 


1647 


0000 




0 




2225 


1650 


5654 




STC ,+4 /SAVE 


RETURN 


2226 


1651 


0500 




IOB 




2227 


1652 


6041 




QATSF /WAIT 


FOR FLAG 


2230 


1653 


7651 




JMP ,-2 




2231 


1654 


6000 




JMP /EXIT 




2232 






/ 






2233 


1655 


0243 


QACHAR, 


243 /HASH 





Oat j 

223 4 


1656 


0244 


244 /DOLLAR SIGN 


2235 


1657 


0245 


245 /PER CENT 


2236 


1660 


0247 


247 /APOSTROPHE 


2237 


1661 


0300 


300 /AT SIGN 


22 41? 


1662 


0336 


336 /UP ARROW 


224 1 


1663 


0337 


337 /BACK ARROW 


224i> 


1 fi64 


0040 


40 /RUHOUT 


2 V 4 3 


1665 


0036 


36 /ALT 


2244 






/END OF SOR GETKSO 


2245 








2246 








22 4 7 








2250 








2251 








2252 






REFRESH«QAlNIT+53 


2253 








2254 








2255 








2256 






SEGMNT3 


O O K T 

2257 






♦ 0001 


0 D « 01 








loci 
<2o 1 








2262 






/FRAME 1 


2263 






/ MARK 1 2 


2 ZD 4 






/THIS PROGRAM WILL FORMAT AND 


^ *S is K 

2265 






/LINC TAPES FOR THE PDP-12 


2266 








2267 






/SELECT OPTION AND PRESS LINE 


2273 






/ON THE CONSOLE TELETYPE 


2271 








2272 






/SELECT - 


2273 








2274 






/ 1 STD LINC FORMAT 


227 5 








2276 






/ P 129 WORD FORMAT 


2277 








2300 






/ B 1600 STD BLKS 


2301 








2302 






/FRAME 2 


2303 








2304 






/MOUNT TAPE TO BE 


All! 

<; o W 5 






/MARKED ON THE RIGHT 


2306 






/REEL OF UNIT 1 


2307 








2310 






/PLACE UNIT 1 IN 


231 1 






/REMOTE WITH 


231 2 






/WRITE ENABLED , THEN 


2313 








2314 






/PRESS THE MARK SWITCH 


2315 








2316 








2317 






/FRAME 3 


2320 








2321 






/ GOOD TAPE 


2322 








2323 






/ALLOW MARKED TAPE TO REWIND 


2324 






/THEN SELECT OPTION AND TYPE 


232 5 






/LINE FEED ON THE TELETYPE 


2326 








2 327 






/SELECT - 


2330 








2331 






/ 1 MARK ANOTHER TAPE 


2332 









2333 
3334 
2335 
2336 
2337 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2350 
2351 
2352 
2352 
2352 
2352 
2352 
2352 
2353 
2353 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2354 
2355 
2355 
2355 
2355 
2355 
2355 
2355 
23 55 
2355 
2355 
2355 
2355 
2355 
2355 
2355 
2355 
2355 
2356 
2356 



0001 
0002 
0003 
0004 
0005 



0007 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0P30 
0031 
0032 

0033 
0034 
0035 
0036 
0037 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0050 

0051 
0052 



0640 
4040 
4015 
0122 
1340 



0006 6162 



4310 
4310 
4040 
4040 
2410 
1123 
4020 
2217 
0722 
0115 
4027 
1114 
1440 
0617 
2215 
0124 
4001 
1604 
4003 
1005 

0313 
4310 
4040 
4040 
1411 
1603 
4024 
0120 
0523 
4006 
1722 
4024 
1005 
4020 
0420 
5561 



/ 2 RESTART DIAL 
/FRAME 4 

/TAPE CHECK FAILED 
/SELECT - 

/ 1 MARK ANOTHER TAPE 
/ 2 RESTART DIAL 



DS1, 



TEXT IF 



MARK 12 



THIS PROGRAM WILL FORMAT AND CHECK 



0053 6243 



LINC TAPES FOR THE PDP-12 



2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
2357 
23659 
236^ 
2360 
2330 
2360 
2360 
2350 
2360 
2360 
2360 
2360 
2360 
23 6 0 
2360 
2363 
2360 
2361 
2361 
2362 
2362 
2362 
2362 
2362 
2362 
2362 
2363 
2353 
2364 
2364 
2364 
2364 
2364 
2364 
2364 
2354 
2364 
2364 
2354 
2354 
2365 
2365 
2366 
2366 



0054 
0055 
0056 
00 57 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0070 
0071 
0072 
0073 
0074 
0075 
0076 

0077 
0100 
0101 
0102 
0103 
3104 
0105 
0106 
0107 
0110 

0111 

0112 
0113 
0114 
0115 



3117 
0120 
0121 
0122 
0123 
0124 



0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 



1043 
1040 
4040 
4023 
0514 
0503 
2440 
1720 
2411 
1716 
4001 
1604 
4020 
2205 
2323 
4014 
1116 
0540 
0605 

0504 
4310 
4040 
4040 
1716 
4024 
1005 
4003 
1716 
2317 
1405 
4024 
0514 
0524 
3120 



0116 0543 



4043 
0623 
0514 
0503 
2440 
4074 



0125 6143 



4043 
0640 
4061 
4040 
2324 
0440 
1411 
1603 
4006 
1722 
1501 



0141 2443 



SELECT OPTION AND PRESS LINE FEED 



ON THE CONSOLE TELETYPE 



FSELECT <1 



F 1 STO LINC FORMAT 



0142 
0143 



0643 
0640 



2366 
2366 
2366 
2366 
2366 
2366 
2366 
2366 
2366 
2366 
2357 
2367 
2373 
2370 
2373 
2373 
2370 
2370 
2370 
2370 
2370 
2370 
23701 
2371 
2371 
2371 
2372 
2373 
2374 
2375 
2375 
2375 
2375 
2375 
2375 
2375 
2375 
2375 
2375 
2376 
2376 
2376 
2376 
2376 
2376 
2376 
2376 
2376 
2376 
2376 
2376 
2377 
2377 
2377 
2377 
2377 
2377 
2377 
2377 
2377 
2377 
2400 
2400 



0 144 
0145 
0 146 
0147 
0150 
0151 
0152 
0153 
0154 



0156 
0157 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 

0170 
0171 



0172 
0173 
0174 
0175 
0176 
0177 
0200 
0201 
0202 

0203 
0204 
0205 
0206 
0207 
0210 
0211 
0212 
0213 
0214 
0215 

9216 
0217 
0220 
0221 
0222 
0223 
0224 
0225 
0226 



4020 
4040 
6162 
7140 
2717 
2204 
4006 
1722 
1501 



0155 2443 



0643 
0640 
4002 
4040 
7071 
6640 
2324 
0440 
4002 
1413 

2343 
3400 



4306 
4015 
1725 
1624 
4024 
0120 
0540 
2417 
4002 

0543 
0640 
1501 
2213 
0504 
4017 
1640 
2410 
0540 
221 1 
0710 

2443 
0640 
2205 
3514 
4017 
0640 
2516 
1124 
4361 



F P 129 WORD FORMAT 



F B 896 STD BUS 



OZ 



0S2A, TEXT Z 



F MOUNT TAPE TO 3E 



F MARKED ON THE RIGHT 



3227 5643 



F REEL OF UNIT 1, 



24 01 


0230 


0643 


2401 


0231 

YJ t* W 1 




2401 


0232 


2014 


2401 


0233 


0103 


2401 


0234 


0540 


2401 


0235 


?*S 1 fi 


2431 


0236 


1124 


2401 


0237 


4061 


2401 


0240 


"(in 


2401 






2402 


0194 1 

VJ c «• l 




2402 


024? 


3400 


2402 






2403 






2404 






2405 


0243 


43401 

*• U M 10 


2405 






2406 


0244 


4340! 


2406 






2407 


0245 


4340 


2407 






2410 


0246 


4340 


2410 






2411 


0247 


4340 


241 1 


0250 


4306 


2411 


0251 


4022 


2411 


0252 


0515 


2411 


0253 


1794 


2411 


0254 


0540 


241 1 


0255 


27 1 1 


2411 


0256 


9410 


24 11 






2412 


0257 


•f if' *f w 


2412 


0260 


0640 


2412 


0261 


9799 


2412 


0!?6 9 

<£) C ^ C 


1 1 OA 
I lei 


24 1 2 


0263 


0540 


24 12 


0 26 4 


0516 


2412 


0265 


0102 


2412 


0 266 


1405 


2412 


0267 




2412 


0270 


4024 


241 2 


0271 


1005 


2412 






24 13 


0272 


1643 


2413 






2414 


0273 


0640 


2414 


0274 


4306 


2414 


3275 


4020 


2414 


0276 


2205 


2414 


0277 


939"^ 

c- V C. 


24 14 


0300 


4024 


2 414 


0301 


i an*; 

l VI 10 sJ 


2414 


0302 


4015 


2 4 14 


0303 


01 1 9 0 


2 414 


0 30 4 


1 ^401 
A O ** V) 


241 4 


vJWt) J 




2 4 14 


0 306 


1 1 94 


2 4 14 






2415 


0307 


0310 


2415 


0310 


4334 


2415 






2416 







F PLACE UNIT 1 IN 



OZ 

DS2B, 



TEXT Z 



F REMOTE WITH 



F WRITE ENABLED, THEN 



F PRESS THE MARK SWITCH 



01 



2417 






24271 






2421 


5)311 


0643 


2421 


0312 


0640 


2421 


0313 


4040 


2421 


0314 


0717 


2421 


0315 


1704 


2421 


0316 


4024 


2421 


0317 


0120 


2421 






24 22 


0320 


0543 


2422 






2423 


0321 


0643 


2423 


0322 


1040 


2423 


0323 


4040 


2423 


0324 


0114 


2423 


0325 


1417 


2423 


0326 


2740 


2423 


0327 


1501 


2423 


0330 


2213 


2423 


3331 


0504 


2423 


0332 


4024 


2423 


0333 


0120 


2423 


0334 


0540 


2 4 23 


0335 


2417 


2423 


0336 


4022 


2423 


0337 


0527 


2423 


0340 


1115 


2423 






2424 


0341 


0443 


2424 


0342 


1040 


2424 


0343 


4040 


2424 


0344 


2410 


2424 


0345 


0516 


2424 


0 3 46 


4023 


2424 


0347 


0514 


2424 


T350 


0503 


2424 


0351 


2440 


2424 


03 52 


1720 


2424 


0353 


2411 


2424 


0354 


1716 


242 4 


0355 


4001 


2424 


0356 


1604 


2424 


0357 


4024 


2424 


0360 


3120 


2424 






2425 


036 1 


0543 


2425 


0362 


10 40 


2425 


0363 


4040 


2425 


0364 


1411 


2425 


0365 


1605 


2425 


0356 


4006 


2425 


0357 


0505 


2425 


i*370 


0440 


2425 


0371 


1716 


2425 


0372 


4024 


2425 


0373 


1005 


2425 


0374 


4024 


2425 


0375 


0514 


2425 


0376 


0524 


2 4 25 


0377 


3120 


2425 






2426 


0400 


0543 



DS3, 



TEXT ZF 



GOOD TAPE 



H ALLOW MARKED TAPE TO REWIND 



H THEN SELECT OPTION AND TYPE 



LINE FEED ON THE TELETYPE 



2 426 F 

2427 0401 0643 

2427 (3402 0623 

2427 0403 0514 

2427 0404 0503 

2427 0405 2440 

2427 0406 4074 

2427 FSELECT <1 

2433 0407 6143 

2430 F 

2431 0410 0643 
2431 0411 0640 
2431 0412 6140 
2431 0413 1501 
2431 0414 2213 
2431 0415 4001 
2431 0416 1617 
2431 0417 2410 
2431 0420 0522 
2431 0421 4024 
2431 0422 0120 

243 1 F t MARK ANOTHER TAPE 

2432 0423 0543 

2432 F 

2433 0424 0643 
2433 0425 0640 
2433 0426 6240 
2433 0427 2205 
2433 0430 2324 
2433 0431 0122 
2433 0432 2440 
2433 0433 0411 

2433 F 2 RESTART DIAL 

2434 0434 0114 
2434 0435 4334 
2434 OZ 
2435 

2436 

2437 054, TEXT ZF 

2440 0436 0643 

2440 0437 0640 

2440 0440 4040 

2440 0441 2401 

2440 0442 2005 

2440 0443 4003 

2440 0444 1005 

2440 0445 0313 

2440 0446 4006 

2440 0447 0111 

2440 0450 1405 

2440 F TAPE CHECK FAILED 

2441 0451 0443 

2441 F 

2442 0452 0643 

2442 F 

2443 0453 0643 

2443 F 

2444 0454 0643 
2444 0455 0623 
2444 0456 0514 
2444 0457 0503 
2444 0460 2440 

2444 FSELECT <1 



2445 
2445 
2446 
2446 
2446 
2446 
2446 
2446 
2446 
2446 
2446 
2446 
2446 
24 46 
2447 
2447 
2450 
2450 
2450 
2455? 
2450 
2450 
2450 
2450 
2450 
2450 
2451 
2451 
2452 
245? 
245? 
2453 
2454 



0461 7461 



0462 
0463 
0464 
0465 
3466 
0467 
0470 
0471 
0472 
0473 
0474 



0476 
0477 
0500 
0501 
0502 
0503 
0504 
0505 
0506 



0510 
0511 



4306 
4306 
4061 
4015 
0122 
1340 
0116 
1724 
1005 
2240 
2401 



0475 2005 



4306 
4306 
4062 
4040 
2205 
2324 
0122 
2440 
0411 



0507 0114 



4306 
4334 



F 1 MARK ANOTHER TAPE 



F 2 RESTART DIAL 



oz 



4 GTAR 


5 


8KBNA 


4471 


8K8NS 


4470 


8LKCNT 


4344 


3LKLP1 


4426 


BLKLPg 


4443 


BLOCK 


4400 


BTEST 


4677 


3 1 TAB 


4472 


CFBLK 


4666 


CHECK 


4635 


CO'JNTA 


4466 


COUNT 8 


4466 


OLOOP 


4737 


OSPl 


4020 


DSP2 


4104 


DSP3 


4200 


DSP3R 


4215 


osi 


6001 


DS2A 


6172 


OS 2 3 


6243 


DS3 


631 1 


0S4 


6436 


DT 


2000 


FBLK 


4343 


FRSTGO 


4607 


GETKRO 


5521 


HERE 


4264 


KBLOCK 


4352 


KB1TA3 


4510 


KHERE 


4350 


KIEM 


4345 


KMM 


4346 


'« W A I T 


4511 


K V A I T 1 


4347 


K W M K D 


4353 


K V! H K W D 


4512 


K WPTAP 


4101 


K p PI t 6 


4506 


*P200 


4351 


K5252 


451.3 


K7764 


4507 


L T APE 


4041 


M A R K S W 


4144 


OMKST 


4137 


Ommark 


4102 


POMMAR 


4534 


PTAPE 


4061 


P K R T A P 


4535 


OAP 


5004 


0 A C A 


55515 


0 ACHAR 


5655 


qackup 


5621 


Q A C N T R 


5604 


QA-0 


5026 


OAE 


5050 


OAEXIT 


5635 


QAF 


5516 


0 AG 


5062 


0 AH 


5114 


OA I 


5131 


OAINJT 


5000 



QAJ 5136 

QAK 5305 

QAKRB 6036 

OAL 5175 

QALERL 5575 

QAM 5101 

QAN 5223 

QAO 5231 

QAP 5242 

QAQ 5263 

QARFSH 5053 

OAT 5270 

QATLS 6046 

QATPE 5644 

QATSF 6041 

QATY 5536 

QAU 5506 

QAV 5316 

QAW 5512 

Q A X 5424 

0 A Y 5412 

QAZ 5301 

RBLKNO 4720 

RFPRF.S 1053 

RERROR 4747 

KFT2 4154 

RLOOP 4714 

STDIAL 4016 

TEMPA 4467 

WAIT 4600 

WBLKNO 4660 

WLOOP 4654 

WMCNT 4634 

WMCODE 4626 

WMKWD 4620 

WRLOOP 4272 

WRTAP 4231 
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